home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / info-service / www / src / midaswww-1.0 / midasutil.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-11-16  |  1.1 KB  |  61 lines
  1. #include <Mrm/MrmAppl.h>                        /* Motif Toolkit and MRM */
  2. #include <string.h>
  3. #include "midasoperand.h"
  4.  
  5. /*
  6.  *  General utility functions
  7.  */
  8.  
  9. static MidasOperand Locate(needle,haystack)
  10. char *needle;
  11. char *haystack;
  12. {  
  13.   MidasOperand Temp;
  14.   char *p = strstr(haystack,needle);
  15.   
  16.   Temp.Value.I = p ? p-haystack : strlen(haystack);  
  17.   Temp.Type = MInt;
  18.   Temp.Dynamic = FALSE;
  19.   
  20.   return Temp;
  21. }
  22. static MidasOperand Extract(start,length,string)
  23. int start;
  24. int length;
  25. char *string;
  26. { 
  27.   MidasOperand Temp;
  28.   int len = strlen(string);
  29.   char *p;
  30.  
  31.   if (start>=len) p = NULL;
  32.   else 
  33.   {   
  34.     p = string + start; 
  35.     if (start+length < len) *(p+length) = '\0'; 
  36.   }
  37.   
  38.   Temp.Value.P = XtNewString(p);
  39.   Temp.Type = MString;
  40.   Temp.Dynamic = TRUE;
  41.  
  42.   return Temp;
  43. }
  44. static MidasOperand Length(string)
  45. char *string;
  46. {
  47.   MidasOperand Temp;
  48.  
  49.   Temp.Value.I = strlen(string);  
  50.   Temp.Type = MInt;
  51.   Temp.Dynamic = FALSE;
  52.   
  53.   return Temp;
  54. }
  55. void MidasUtilInit()
  56. {
  57.    MidasDeclareFunction("LENGTH(name)"         ,Length);
  58.    MidasDeclareFunction("EXTRACT(Int,Int,name)",Extract);
  59.    MidasDeclareFunction("LOCATE(name,name)"    ,Locate);
  60. }
  61.